home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
dbase
/
techs.zip
/
TECH18.ZIP
/
PAGETOP.PRG
< prev
next >
Wrap
Text File
|
1985-11-02
|
356b
|
18 lines
* PROCEDURE Pagetop.PRG
* Date....: November 1, 1985
* Version.: dBASE III, The Developer's Release
* Note(s).: Prints a page heading for memo report.
* Called by Memorpt.PRG.
*
EJECT
?
? "Page " + STR( page,3 )
? DATE()
?
? SPACE(25),"Heading One"
? SPACE(25),"Heading Two"
?
linecnt = 7
page = page + 1
RETURN
* EOP Pagetop